object Form1: TForm1 Left = 12 Top = 10 ActiveControl = Button1 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Danchan'#39's Putter Golf 1.1' ClientHeight = 416 ClientWidth = 556 Ctl3D = False Color = clLime Font.Color = clBlack Font.Height = -19 Font.Name = 'Times New Roman' Font.Style = [] Icon.Data = {} KeyPreview = True Menu = MainMenu1 PixelsPerInch = 96 Position = poDefaultPosOnly Scaled = False OnCreate = FormCreate OnKeyDown = FormKeyDown OnMouseDown = FormMouseDown OnMouseMove = Shape2MouseMove OnMouseUp = Shape1MouseUp OnPaint = FormPaint TextHeight = 21 object Image2: TImage Left = 16 Top = 120 Width = 260 Height = 26 Picture.Data = {} Visible = False end object Image3: TImage Left = 16 Top = 152 Width = 260 Height = 26 Picture.Data = {} Visible = False end object hata: TImage Left = 203 Top = 180 Width = 32 Height = 32 Picture.Data = {} end object Panel1: TPanel Left = 420 Top = 0 Width = 136 Height = 416 Align = alRight BevelInner = bvLowered TabOrder = 0 OnMouseMove = Shape2MouseMove object Shape1: TShape Left = 8 Top = 24 Width = 120 Height = 120 Cursor = crCross Shape = stCircle OnMouseDown = Shape1MouseDown OnMouseMove = Shape1MouseMove OnMouseUp = Shape1MouseUp end object Shape2: TShape Left = 59 Top = 75 Width = 18 Height = 18 Brush.Color = clBtnFace Shape = stEllipse OnMouseMove = Shape2MouseMove end object Label1: TLabel Left = 8 Top = 172 Width = 125 Height = 20 AutoSize = False Caption = 'Hole 1 (par 2)' end object Label2: TLabel Left = 8 Top = 190 Width = 74 Height = 20 AutoSize = False Caption = 'Shot 1 ' end object Label3: TLabel Left = 8 Top = 208 Width = 122 Height = 20 AutoSize = False Caption = 'Score 0 (+0)' end object Label4: TLabel Left = 4 Top = 4 Width = 128 Height = 19 Alignment = taCenter Caption = 'Click This Circle' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] ParentFont = False end object Label5: TLabel Left = 8 Top = 232 Width = 117 Height = 17 AutoSize = False Caption = 'Friction : 14' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 8 Top = 270 Width = 121 Height = 17 AutoSize = False Caption = 'Acceleration : 14' Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object showxy: TLabel Left = 12 Top = 146 Width = 109 Height = 19 Alignment = taCenter AutoSize = False Caption = 'Power : 0' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] ParentFont = False end object Bar1: TScrollBar Left = 8 Top = 249 Width = 121 Height = 16 LargeChange = 4 Max = 30 Min = 1 Position = 14 TabOrder = 0 OnChange = Bar1Change end object Bar2: TScrollBar Left = 8 Top = 287 Width = 121 Height = 16 LargeChange = 4 Max = 30 Min = 1 Position = 14 TabOrder = 1 OnChange = Bar2Change end object Button1: TButton Left = 60 Top = 310 Width = 65 Height = 24 Caption = 'Reset' Font.Color = clBlack Font.Height = -16 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = ResetbtnClick end object Radio1: TRadioGroup Left = 4 Top = 338 Width = 128 Height = 72 Columns = 2 Enabled = False Font.Color = clBlack Font.Height = -15 Font.Name = 'Arial' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'DX' 'Rough' 'DY' 'Item') ParentFont = False TabOrder = 4 end object Check1: TCheckBox Left = 12 Top = 338 Width = 49 Height = 17 Caption = 'Edit' TabOrder = 3 OnClick = Check1Click end end object MainMenu1: TMainMenu Left = 72 Top = 40 object Game1: TMenuItem Caption = '&Game' object Restart1: TMenuItem Caption = '&Restart' OnClick = Restart1Click end object New1: TMenuItem Caption = '&New' OnClick = New1Click end object N1: TMenuItem Caption = '-' end object Save1: TMenuItem Caption = '&Save' OnClick = Save1Click end object Load1: TMenuItem Caption = '&Load' OnClick = Load1Click end object N2: TMenuItem Caption = '-' end object Exit1: TMenuItem Caption = 'E&xit' OnClick = Exit1Click end end object Help1: TMenuItem Caption = '&Help' object Index1: TMenuItem Caption = '&Index' OnClick = Help1Click end object About1: TMenuItem Caption = '&About' OnClick = About1Click end end end object Timer1: TTimer Enabled = False Interval = 50 OnTimer = Timer1Timer Left = 40 Top = 40 end object Loadbox: TOpenDialog Ctl3D = False DefaultExt = 'dpg' Filter = 'Course Data(*.dpg)|*.dpg|All files(*.*)|*.*' Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist] Title = 'Danchan'#39's Putter Golf(Load)' Left = 104 Top = 40 end object Savebox: TSaveDialog Ctl3D = False DefaultExt = 'dpg' FileName = 'dpgolf.dpg' Filter = 'Course Data(*.dpg)|*.dpg' Options = [ofOverwritePrompt, ofHideReadOnly] Title = 'Danchan'#39's Putter Golf(Save)' Left = 136 Top = 40 end end